#
# syntax : loop.pl ./script.do
#

$program  = shift @ARGV;

if ( $program ) {
    system ( "while [ 1 ]; do $program; sleep 1; done" );
} else {
    &help;
}

sub help {
    print "syntax : perl loop.pl ./script.do" . "\n";
}
